home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / datastorev1.1update.lha / DS1.1Update / Install-Datastore1.1 < prev    next >
Text File  |  1995-12-29  |  2KB  |  42 lines
  1. ;DATASTORE 1.1 ONLINE UPDATE PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1995 DIGITA INTERNATIONAL AND SOFT-LOGIK PUBLISHING CORPORATION
  3.  
  4. (message "\n\nThis will update your hard drive installation of Datastore 1.0 revision 3 (1.0r3) to version 1.1. It requires that Datastore 1.0r3 be installed on your hard drive.\n\nYour original Datastore disk will not be modified by this update.")
  5.  
  6. ;GET DATASTORE DIRECTORY
  7. (set DSdest
  8.     (askdir
  9.         (prompt
  10.             "Where is Datastore installed?\n "
  11.             "Click on the Datastore drawer.\n")
  12.                 (help
  13.             "\n\nYou must select the Datastore drawer so that "
  14.             "this installer can update the installation.")
  15.                 (default @default-dest)
  16.         )
  17. )
  18. (set temp1 (tackon DSdest "DSProg"))
  19. (set temp2 (tackon DSdest "Datastore"))
  20. (if (AND (<> (exists temp1) 1) (<> (exists temp2) 1))
  21.     (abort "Datastore 1.0r3 is not located in this directory.")
  22. )
  23. (set @default-dest DSdest)
  24. (makeassign "Datastore" DSdest (safe))
  25.  
  26. ;UPDATE DATASTORE
  27. (working "\n\nPatching Datastore 1.0r3 to 1.1...")
  28. (run "spatch >NIL: <NIL: -oDatastore:DSProg1.1 -pDSProg.pch Datastore:DSProg")
  29. (run "spatch >NIL: <NIL: -oDatastore:Datastore1.1 -pDatastore.pch Datastore:Datastore")
  30. (if (AND (exists "Datastore:DSProg1.1") (exists "Datastore:Datastore1.1"))
  31.     (
  32.         (delete "Datastore:DSProg")
  33.         (delete "Datastore:Datastore")
  34.         (rename "Datastore:DSProg1.1" "Datastore:DSProg")
  35.         (rename "Datastore:Datastore1.1" "Datastore:Datastore")
  36.     )
  37.     (abort "Patch was not successful. DSprog or Datastore file could not be patched due to incorrect version, lack of hard drive space, or RAM.")
  38. )
  39.  
  40. ;ALL DONE
  41. (exit "Datastore updated to version 1.1!")
  42.